home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XWAIT.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-04  |  303b  |  19 lines
  1. {$IBoDecl}
  2. {$ITimer}
  3. {$ICenter}
  4. {$IPutStr}
  5. {$IWait}
  6.  
  7. BEGIN
  8.  
  9.    ClrScr;
  10.    PutStr ( h, 'Press a key for speed, home for hold',
  11.             1, 25, 7 );
  12.    for i := 1 to 24 do
  13.    begin
  14.       str (i, s);
  15.       PutStr ( h,Center (S, 10,'-'), 1+(i-1)*3, i, 14 );
  16.       wait(1);
  17.    end
  18.  
  19. END.